sub main()	dim s as string,d as date	dim f as file	msgbox("File Class Test")	if targetCarbon = true then		msgbox("Running on MacOS")		f = system.volume(0).child("Applications")	elseif targetWin32 = true then		msgbox("Running on Windows")		f = system.volume(0).child("Windows")	end if	if f.Parent.nil = false then		s = f.Parent.absolutepath	else		s = "Has no parent"	end if	msgbox(f.name & " " & s)	d = new date	d = f.modificationdate	s = d.longdate	msgbox("Modification date: " & s)	dim i as integer,c as integer,n as file   	c = f.count	msgbox("Count=" & c)	for i = 1 to c		n = f.item(i)		if n.directory = true then			s = "Directory: "		else			s = "File: "		end if		msgbox(s & n.name)	nextend sub